Public Class CPurchase

    Private _intPartyCode As Integer = 0
    Private _intPromoterCode As Integer
    Private _dblAmount As Double = 0
    Private _dblTotalTax As Double = 0
    Private _dblDiscount As Double = 0
    Private _dblGrossAmt As Double = 0
    Private _dtPurchaseDate As Date
    Private _dblCreditAmt As Double = 0
    Private _dblDebitAmt As Double = 0
    Public dblOtherCharges As Double = 0
    Private _intSite As Integer = 0
    Private _intDocType As Integer
    Private _intDrID As Integer
    Private _intBillID As Integer
    Public intSRV_Number As Integer = 0
    Private _blIsFinalBill As Boolean
    Private _strBills As String   'IF Final Bill then variable will contains comma separated bill ids of the bills which are under the final bill .
    '                              This variable used when converting bill/bills to final bill          
    Private _strShippingAdress As String
    Public priceListID As Int32
    Public PO_GRNID As Int64 = 0
    Public strSupplierDCNumber As String = String.Empty
    Public blnConvertToInvoice As Boolean = False

    'Public Enum DocTypes
    '    CASH_MEMO = 1
    '    CHALLAN = 2
    '    INVOICE = 3
    '    APPROVAL = 4
    '    QUOTATION = 5
    '    CASH_MEMO_RETRUN = 6
    '    INVOICE_RETURN = 7
    '    APPROVAL_RETURN = 8
    'End Enum
    Public Property Site() As Integer
        Get
            Return _intSite
        End Get
        Set(ByVal value As Integer)
            _intSite = value
        End Set
    End Property

    Public Property PartyID() As Integer
        Get
            Return _intPartyCode
        End Get
        Set(ByVal value As Integer)
            _intPartyCode = value
        End Set
    End Property

    Public Property PromoterID() As Integer
        Get
            Return _intPromoterCode

        End Get
        Set(ByVal value As Integer)
            _intPromoterCode = value
        End Set
    End Property

    'Modified By:-(20071203)
    Public Property PurchaseType() As Integer
        Get
            Return _intDocType
        End Get
        Set(ByVal value As Integer)
            _intDocType = value
        End Set
    End Property


    Public Property Amount() As Double
        Get
            Return _dblAmount
        End Get
        Set(ByVal value As Double)
            _dblAmount = value
        End Set
    End Property
    Public Property TotalTax() As Double
        Get
            Return _dblTotalTax
        End Get
        Set(ByVal value As Double)
            _dblTotalTax = value
        End Set
    End Property

    Public Property Discount() As Double
        Get
            Return _dblDiscount
        End Get
        Set(ByVal value As Double)
            _dblDiscount = value
        End Set
    End Property

    Public Property GrossAmt() As Double
        Get
            Return _dblGrossAmt
        End Get
        Set(ByVal value As Double)
            _dblGrossAmt = value
        End Set
    End Property

    Public Property PurchaseDate() As Date
        Get
            Return _dtPurchaseDate
        End Get
        Set(ByVal value As Date)
            _dtPurchaseDate = value
        End Set
    End Property

    Public Property CreditAmt() As Double
        Get
            Return _dblCreditAmt
        End Get
        Set(ByVal value As Double)
            _dblCreditAmt = value
        End Set
    End Property

    Public Property DebitAmt() As Double
        Get
            Return _dblDebitAmt
        End Get
        Set(ByVal value As Double)
            _dblDebitAmt = value
        End Set
    End Property

    

    Public Property PurchaseBillID() As Integer
        Get
            Return _intBillID
        End Get
        Set(ByVal value As Integer)
            _intBillID = value
        End Set
    End Property

    Public Property GRN_ID() As String
        Get
            Return _strBills
        End Get
        Set(ByVal value As String)
            _strBills = value
        End Set
    End Property

    Public Property IsFinalBill() As Boolean
        Get
            Return _blIsFinalBill
        End Get
        Set(ByVal value As Boolean)
            _blIsFinalBill = value
        End Set
    End Property

    Public Property ShippingAdress() As String
        Get
            Return _strShippingAdress
        End Get
        Set(ByVal value As String)
            _strShippingAdress = value
        End Set
    End Property

End Class
